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RM3MISC 16-Sep-1984 01:50:35 VAX=11 Bliss-32 V4.0-74 Page 1 RM? 

12-80-1382 93509 138 DISKSVMSMASTER:CRMS.SRCIRM3MISC.B32;1 (1) v04 
5 1 0001 MODULE RM3MISC (LANGUAGE COL 13536) ° : 
3 ¢ it) IDENT = 'V04-000' : 
3 4 0004 1 BEGIN 3 
; 5 0005 1! : 
3 $ Bone { SRR AAA AAA RREA AAA ERE EAE E AERA RAAT P 
5 '® * $ 
: 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * $ 
° 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
3 Bie , + ALL RIGHTS RESERVED. * F 
$ * * : 
H \¢ Boi¢ 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
: 1 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
: 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
: 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * F 
3 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
: V7 9017 lis TRANSFERRED. * : 
; .* ® : 
. 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | ; 
: $ bos) ! :* CORPORATION. ® $ 
. '® x e 
3 23 $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
3 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
;. @ 0025 1 !* * | 3 
: @& 0026 1 !* * : 
4 27 0027 1 LRA RARER RARER EEE EAA AEE D4 
; «628 0028 1 3 
ae +, 0029 1 !++ 3 
; » 0030 1! ; 
3 33 $03) : : FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION : 
: 33 $038 1 ! ABSTRACT: | 3 
: 34 0034 1! MISCELLANEOUS ROUTINES 3 
‘2 ., 0035 1! $ 
; = 0036 1! 3 
; 37 0037 1 ! ENVIRONMENT: : 
; = 0038 1! g 
: 39 0039 1! VAX/VMS OPERATING SYSTEM $ 
:; 40 0040 1! : 
> 41 0041 1 i-- ; 
3 4g 0042 1 : 
: 6 00435 1! : 
; 3 Oo ee ! : AUTHOR: Wendy Koenig CREATION DATE: 17-APR-78 9:57 : 
; & 0046 1 ! MODIFIED BY: 3 
5; of 0047 1! : : 
; 0048 1! v03-010 JwT0151 Jim Teague 31-Jan-1984 | $ 
; «49 0049 1! Under certain conditions, RMSRECORD KEY can start : 
: $0 0050 1! searching what it thinks is a SIDR Bucket beginning 3 
. 0051 1! at LST_NUMP, but LST_NCMP happens to point to a F 
3 26 O036 ' record in a primary data bucket. : 
; «54 Spaz 1! v03-009 JWT0147 Jim Teague 12-Dec-1983 
. 0055 1! Correct insane sanity check on index buckets: on an 
; 2 0056 1! EXACTLY full index bucket it is not an error to have 
2 Be 0057 1! the back freespace pointer point to a byte 1 less than 


RMSMISC 1b-$e -Sep-1984 2 3: 39:33 VAX=11 Bliss-32_V4.0-74 P 2 


‘ age 
v04-000 12-Sep-1984 DISKSVMSMASTER:CRMS.SRCIRM3MISC.B32:1- >” (15 
; 3 0058 1! the front freespace pointer. 

;  § Bos} i veggie 

: 60 0060 1! v03-008 MCNOO013 Maria del C. Nasr 15-Mar-1983 

: 6} sie : More Linkages reorganization 

. >< Mite 1 i v03-007 MCNOO12 Maria del C. Nasr 01-Mar-1983 

; 6° Bote ! Reorganize Linkages 

: 66 0066 1: vO3-006  TMK0004 Todd M. Ka 13-Sep-1982 

aa 0067 1! Add su ppo ort for prologue 8 SIDRs. This involved rewriting 
;. @& 0068 1! RMSRECORD_KEY and RMSCNTRL_ADDR, and making changes to 

3 4 4 M4 ! } RMSRECORD_VBN. 

cf. 2 0071 1! Eliminate the routine RMSKEY_TYPE_CONV a routine that is 
: 72 0072 1 er used, and all calls to RMSCONV_TO ASCI and 

4 i? Babi ' RMSCONV. FROM_ ASCII. 

: 75 0075 1! v03-005  «BT0221 Keith B. Thompson 23-Aug-1982 

; 76 Bare : Reorganize psects 

: 78 0078 1! 03-004  MCNO011 Maria del C. Nas 29-Jun-1982 

s 79 0079 1! Reverse parameters in call to RMSCONV. TO_ ASCII in 

3 69 its : } RMSRECORD_KEY. 

; 0082 1: vO03-003  TMK0003 Todd M. 28-Jun-1982 

; & 0083 1! I added subti eles in TaKOO07 but I spelled the lexical 

ee 0084 1! function SBTTL incorrectly. 

: 65 0085 1! 

; 0086 1! v03-002 MK0002 Todd M 28-Jun-1982 

; 4 sie ff ; had Linakge for RMSRECORD. 1b forgotten in TMK0001 . 

: 89 0089 1:  v03-001 TMK 0001 Todd M 28-Jun-1982 

; 90 0090 1! Add the new routine RMSRECORD. ID which extracts from the 

: 4 94 ! RRV field of the given primary data record the ID. 

: 93 0093 1! v02-017 PSK0005 Paulina S. Knibbe 02-Sep-1981 

; «294 0094 1! Only add truncated character when the Length of the 

3 32 'ae4 : } currently car es is less than the total length 

: 97 0097 1 02-016  MCN0010 a del C. Nasr 04-Aug-1981 

; «68 0098 1! Modify RMSRECORD” rye to do type conversion 5 extracting 
; WW 0099 1! key segments from an expanded prologue 3 data record. 

E i Bios : Also, add RMSKEY_TYPE_CONV routine. 

> 102 0102 1 §  v02-015  PSK000S Paulina S$. Knibbe 30-Jul-1981 

3 iS? Biz ' : Remove support for truncated index keys tren RMSRECORD. KEY 
: 105 0105 1! v02-014  PSK0004 aulina S$. Knibbe 15-Jun-1981 

: 106 0106 1! Change RMSRECORD. Key to work for prologue three index 

: 107 0107 1! and SIDR records, t 

: H's $4 : Change RMSCNTRL Sor. to work for einai three index buckets 
: 110 0110 1! v02-013 mCN0009 Maria del C. Nasr May=19 

3 hy See : Add support for front end compressed ‘She in MSRECORD JKEY. 
: 113 SEE: 1: v02-012 MCNOO008 Maria del C. Nasr 22-Apr-1981 

s 196 0114 1! Fix some bugs with prologue 3 changes. 


3 | 
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1ereeen18Rs $3:01128  DISKSVMSMASTER GERMS SRCIRMSMISC.B32;1°9" (13 vou 
vO2=011 — PS$k0003 Paulina $. Knibbe 17-Apr-1981 | 
Fix some problems w/RMSCNTRL_ADDR 
v02-010 - MCNO007 Maria del C. Nasr 13-Apr-1981 | 
Add RMSCHECK_SEGMENT routine. 
v02-009 PSK0002 Paulina S. Knibbe + opted. 
Add RMSCNTRL_ADDR to return the address of the control 
byte for the current record in any data bucket 
v02-008 MCNO006 Maria del C. Nasr 23-Mar-1981 
vse ty | these routines to be able to process prologue 3 
data level structure changes (base level 1). 
v02-007 PSK0001 Paulina S. Knibbe 12-Mar-1981 
Change the reference to segment length to a byte 


! REVISION HISTORY: 


Christian Saether, 28-SEP-78 8:52 
x0002 = add RMSMOVE routine to avoid CHSMOVE problems 


Christian Saether, 9-OCT-78 11:09 
X0003 - modify RECORD_KEY to use routine REC_OVHD 


Christian Saether, 10-OCT-78 10:14 ; 
X0004 = change RECORD_KEY to use REC_OVHD routine 


Wendy Koenig, 24-0CT-78 14:02 
X0005 = MAKE CHANGES CAUSED BY SHARING CONVENTIONS 


' 

i 

i 

i 

i 

i 

i 

i 

' 
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i | 
' 

i | 
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' 

vO2-006 REFORMAT Paulina S. Knibbe 23-Jul-1980 
i 
i | 
| 
i | 
i 
i | 
i 

i 

i 

i 

i 

i 

i 

‘erent 

LIBRARY ‘RMSLIB:RMS'; 
REQUIRE ‘RMSSRC:RMSIDXDEF'; 


: define default psects for code 


PSECT | 
CODE = RMSRMS3(PSECT_AT 
PLIT = RMSRMS3(PSECT_AT 


: Linkages 
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RM3MISC 1b-g -1984 :50:35 VA 
FOe-000 RMSCHECK_SEGMENT 1e-Sep-19 4 04:30: 8 DI 


XSBTTL "RMSCHECK SEGMENT' 
GLOBAL ROUTINE RASCHECK_SEGMENT( START_BUF, CURR_BYTE, ADDR_LEN ) : RLSCHECK_SEGMENT = 


1o4 


' 
FUNCTIONAL DESCRIPTION: 
This routine determines if a given byte belongs to a segment 


Bi leeeze V4.0-74 page 


X=11 - 5 
SKSVMSMASTER: CRMS.SRCJRM3MISC .B32; (2). 


~ 
we 


KS 
RAS 


in the primary key. 


CALLING SEQUENCE: . 
RMSCHECK_SEGMENT (PAR1,PAR2,PAR3) 


INPUT PARAMETERS: ; 
START_BUF = start address of input buffer if packing records 
or output buffer if unpacking 
CURR_BYTE = address of current byte in buffer 


IMPLICIT INPUT: 
IDX descriptor (R7) 


i 

i 

i 

i 

' 

i 

i OUTPUT PARAMETER: 
i I 

i] 

be 


not “ay res’ 
ADDR_LEN = address of next segment 
If key wow 
ADDR_LEN = Length of key segment 


ROUTINE VALUE: 
0 - if not key sognens 
1 - if key segmen 


SIDE EFFECTS: 
Unknown 


BEGIN | 
EXTERNAL REGISTE 

R_IDX_DFN_STR; 
LOCAL 


x 
SEG_ADDR, 
S_SEG_ADDR, 


Ld : BYTE, 
SEG~DATA_ ADDR; 


POPOPOPIPONPINPYADINIAPINIPINYININININININI NINN NINN Monon no nonoponononypnofornonopororonopororerrnnr 
SOW NAUNE WN  O OONAUS WN (OOO NAUE WN OOONOUE WN O0OOnNO 


OOO OCO0000 09 09 00 09 09 09 09 SI NINN SN NSN NDA A AAA AAA MMIII & 


SEG_DATA_ADDR = IDX_DFNCIDX$W_POSITION); 
X =". IDXDFNLIDX$B_SEGMENTSJ; 


Determine the highest possible segment 

§_SEG_ADDR = .ICX_DFNCIDX$B_DATBKTSZ] * 512 + .START_BUF; 
WHILE .X NEQU 0 

DO 
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RMSCHECK_ SEGMENT -Sep-1984 13:01:28 DISKSVMSMASTER: chms” she RM3MISC.B32;1 (2) v04 
BEGIN | 
' iw segment address and length 
G_ADDR = .(. SEG DATA_ADDR)<O, 163 + ,START_BUF; 
G_DATALADDR = -SEG_DATA_ADDR + 2; 
G_LEN = .(. SEG. *DATA_ADDR)<0,8>; 
GIDATA_ADDR = TSEG_BATA_ADDR + 2; 
-CURR_BYTE GEQU .SEG_ADDR 
BEGIN 


! If the gi belongs to the primary key, = Length between 
current byte and end of segment, and success 


if .CURR_BYTE LSSU (.SEG_ADDR + .SEG_LEN) 
THEN 


Be Se Se Se Se Se Se Se Se Se Se Se Se Se See Se Se ee ee 


GIN 
ADDR_LEN = (.SEG_ADDR + .SEG_LEN) - .CURR_BYTE; 
RETU TURN 1 


END 
ELSE 


' If this ot met is closer to current byte than previous segment 
but not before, note address 


iF «Ses _ADDR LSSU .S_SEG_ADDR 
([CURR_BYTE LSSu . SEG_ADDR) 


THEN 
S_SEG_ADDR = » SEG_ ADDR; 
END; ! end of while loop 


Return address of closest segment to current byte 
ADDR_LEN = .S_SEG_ADDR; 


RETURN 0; 
END; 


ee ew ee ee o le alolelololololololeololelolelolololelelololeloleleleololololo) 
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-TITLE RM3MISC 
-IDENT \v04-000\ 


-EXTRN RMSSIDR_FIRST, RMSREC_OVHD 
-PSECT RMSRMS3,NOWRT, GBL, PIC,2 


Be Be Se Be Oe Be Se Se Se Se Se Se Se Se Se Se Be FH Se Se Se Bete Se Se Ge Se ee Ge Be Oe BH Se Se Se ee te 


BB 0 

USHR #OMCRI RS R6,R8,R9> : 0245 | 

55 2C «AT YE 00004 OVAB 44(R7)., SEG_DATA_ADDR ; 0098 

58 1E AZ 9A 00008 MOVZBL 30(IDX.DFN)> X ; 029 | 

51 17 A? 9A 0000C MOVZBL 23(IDX"DFN), R1 : 0297 | 

zs 2) 9% cf tigre ADDLS START Bur R1, S_SEG_ADDR | 
58 5 00018 1$: ee : 0299 


RM3MISC 
v04-000 


; Routine Size: 


RMSCHECK_ SEGMENT 


52 


91 bytes, 


Routine Base: 
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OOoOCoooooooooQoQoooooooooooo 
pejejeolelelelelelele)lolelelelololeolelolelelololoio) 


WI & & & 
FOL "M8 PSN 


RMSRMS3 + 0000 


HP SWIIWnonopononon ] 
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DATA_ADDR) + 


BUF? 
DATA, ADDRT+, 
A_ADDR 


SEG_ADDR 
SEG_LEN 


BYTE, SEG_ADDR 
uLE 
“ADDR, R3 
B 


YTE, R3 


RR_BYTE, R3, ADDR_LEN 
» RO 


G_ADDR, S_SEG_ADDR 
RR_BYTE, SEG_ADDR 

G_ADDR, S_SEG_ADDR 
SEG_ADDR, ADDR_LEN 


:35 
1:28 
3$ 
(S$ 
ST 
(S 
SE 
gy 
$ 
SE 
SE 
CURR 
1$ 
cu 
#1 
4$ 
SE 
i ee 
CU 
1$ 
SE 
Pas 
RO 
#°M<R1,R3,R6,RB,RI> 
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v04-000 RMSCNTRL_ADDR 1e-8ep- 1984 13:09:28 DISKSVMBMASTERSCANS SRCTRMSMISC.B32:1°%° (36 

; 279 0341 1 XSBTTL "RMSCNTRL_ADDR' 

; sey 8 t§ i GLOBAL ROUTINE RMSCNTRL_ADDR: RLSRABREG_567 = 

; soe 0344 1 !4+ 

; 28 Bee? 1} 

; Spe $378 ! FUNCTIONAL DESCRIPTION: 

>; 286 0348 1! This routine returns the address of the control byte for the current 

> 287 0349 1! record. For all prologue 1 and 2 records, and prologue 3 primary data 

; «288 0350 1! records, the control byte is associated with the rest of the record 

>; 289 Oso) % overhead. For prologue 3 index records, the control byte is associated 

: 290 B26 +? with the VBN downpointer, and all VBN downpointers are found at the rear 

> 291 0353 1! of the bucket. For prologue 5 SIDRs, the control byte is associated with 

; $36 S32¢ : the RRV pointer of the SIDR array's first element. 

> 294 0356 1 ! CALLING SEQUENCE: 

s £99 0357 1! 

; 296 0358 1! RMSCNTRL_ADDR() 

; er 0359 1! 

; 298 0360 1 ! INPUT PARAMETERS: 

; ov 0361 1! NONE 

; 300 036 1! 

; al 0363 1 ! IMPLICIT INPUTS: 

; We 0364 1! 

; 303 0365 1! BKT_ADDR - address of bucket ; 

; 304 0366 1! BKTSW_FREESPACE - offset to first free byte in bucket 

: 303° 0367 1! BKT$B_INDEXNO - index of bucket 

; 306 0368 1! BKTSB_LEVEL - level of bucket ; 

; $05 ta} : BKT$V_PTR_SZ - size of all VBN downpointers in bucket | 

3 209 0371 1! IDX_DFN - address of index descriptor 

3 319 te ’ IDX$B_IDXBKTSZ - size of the index bucket 

3 (Sle 0374 1: IF A\ - address of IFAB } 

: SS 0375 1! IFB$B_PLG_VER - prologue version of the file 

3; 314 0376 1! 

3 319 0377 1! - address of IRAB 

3 318 B38 { IRB$L_REC_COUNT - number of preceeding records 

3 318 0380 1! REC_ADDR - address of the record 

1 ae 0381 1! 

:; 320 Oaae 1 ! OUTPUT PARAMETERS: 

3 Se) 0383 1! NONE 

3 $56 0384 1! 

oe 0385 1 ! IMPLICIT OUTPUTS: 

: 324 0386 1! NONE 

; mee tt t4 1! 

: 326 388 1 ! ROUTINE VALUE: 

3 der 0389 1! 

: 328 0390 1! Address of the control byte. 

; +4 0391 1! 

; 330 308 1 ! SIDE EFFECTS: 

: 321 395 1! NONE 

; 35 394 1! 

; 2s 395 1 !<- 

> 334 0396 § BEGIN 

3 3535 0397 


tied ]9=3007 1386 94:30:33 VAX-11 Bliss-32 Ed Page 9. 
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3 0398 EXTERNAL REGISTER 
0399 R_BKT_ADDR_ STR, 

38 0400 R-IDX"DFN_STR, 

0404 R-IFAB_STR, 

040 R-IRAB-STR, 

040 R7REC_ADDR_STR; 

0404 

0405 MACRO 

FREESPACE = 0,0,16,0 %; 


! If this is a prologue 2 file, or a prologue 3 primary data record then the 
} address of the record is the address of the record's control byte. 


IF .IFABCIFB$B_PLG_VER] LSSU PLGSC_VER_3 
(.BKT ADDR(BKTSB_LEVEL EQLU 0 

ioe .BKT_ADDRCBKT$B_INDEXNO] EQLU 0) 
RETURN .REC_ADDR 


! If this is a prologue 3 SIDR, then the address of the control byte of the 
first SIDR array element is returned. 


ELSE 
IF .BKT_ADDRCBKT$B_LEVEL] EQLU 0 


BEGIN 
GLOBAL REGISTER 
R_IMPURE , 
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369 RETURN RMSSIDR_FIRST(O) 
in 
372 ! This is a prologue 3 index record. The VBN downpointers are stored at 
373 5 ! the end of the bucket, and the address of the VBN downpointer 

$e $ } corresponding to the current record is returned. 
376 8 ELSE 
377 9 BEGIN 
378 0 
379 1 OCAL 

380 ; CONTROL : REF BBLOCK, 

381 4 VBN_SIZE; 
382 444 : ; ; 
383 445 ! Position to the back freespace pointer in ths index bucket, and 
BRL 0446 ' verify that its value makes sense ( ie - it is no more than one 
385 usse ' byte less than the front freespace pointer, and not past the end 
386 0448 ' of the bucket). 

387 0449 ; P : 
388 0450 ' NOTE: On an EXACTLY full bucket, the back freespace pointer will 
389 0451 ' be (correctly) one byte less than the front freespace pointer. 
391 b4es Any further overlapping will be an error. 

92 0454 CONTROL = .BKT_ADDR + (.1DX_DFNCIDXS$B_IDXBKTSZ] * 512) 
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; 93 p08 ; - BKTSS_ENDOVHD; 

; 99 0437 4 IF .CONTROLCFREESPACE] LSSU (.BKT_ADDRCBKTSW_FREESPACE) = 1) 
3 ia Boze -BKT_ADDR + .CONTROLCFREESPACE] GTRU .CONTROL 

: 399 0461 BUG_CHECK; 

: 401 he ! Position to the VBN downpointer + hati with this index record 
; re peed ; | and return its address in the bucket 

: 404 0466 VBN_SIZE = -BKT ADDREBKT$V_PTR_SZ] + 

: 405 0467 ; CONTROL = .CONTROL = .VBN'SIZE; m 

: a06 pees ; CONTROL = CONTROL - (.VBN_SIZE * .IRABCIRBSL_REC_COUNT]); 

: 408 0470 3 RETURN .CONTROL; 

; 409 0471 2 END; i 

> 410 0673 2 

> 411 0473 1 END; 


-EXTRN RMS$BUG3 


0904 8F BB 00000 RMSCNTRL_ADDR:: 

PUSHR #*M<R2,R8,R11> : 0342 

03 00B7 CA 91 00004 CMPB 183(1FAB). #3 + 0411) 

OA 1F 00009 BLSSU.‘1$ : 

Oc aS 95 00008 TSTB 12(BKT_ADDR) + 0413) 

OA 12 OO00E BNEQ 2$ : 

01 AS 95 00010 TSTB 1(BKT_ADDR) ; 0415 | 

05 12 00013 BNEQ 2$ : 

50 56 DO 00015 1$: MOVL REC_ADDR, RO 3 0423) 

4E 11 00018 BRB a : 

0c AS 95 OOO1A 2$: TSTB 12(BKT_ADDR) : 

OA 12 0001D BNEQ 3$ 3 

7E 04 OO01F CLRL =(SP) > 0431) 

00006 30 00021 BSBW = RMSSIDR_FIRST ; 

5€ 04 CO 00024 ADDL2 #4, SP : 

3F 11 00027 BRB 6$- : 

50 16 AZ 9A 00029 38: MOVZBL 22(IDX_DFN), RO > 0454 | 
50 09 78 900¢0 ASHL 9, : 

52 FC A04S §9E 00031 MOVAB -4(RO)(BKT ADDRI, CONTROL > 0455 

50 046 AS 3¢ 00036 MOVZWL 4(BKT_ADDRJ, > 0457 
50 D7 OO03A DECL RO : 
10 00 ED 0003¢ CMPZV #0, #16, (CONTROL), RO : 

0B 1F 00041 BLSSU 4 3 

50 62 3C 00043 MOVZWL (CONTROL), RO > 0459 | 

50 55 CO 9046 ADDL2 = BKT_. RO 3 

52 50 D1 0004 CMPL = RO, “CONTROL ; 
03 18 004C¢ BLEQU 5$ : 

00006 3 O04E 4$ BSBW RMSBUG3 : 0460 | 

92 EF 00051 5$ EXTZV #3, #2, 13(BKT_ADDR), VBN_SIZE : 0466 | 

€69 0057 ADDL #2, SIZE : | 

52 C2 0005A SUBL VBN_SIZE, CONTROL : 0467 

50 0094 C9 C4 9005p MULL  148TIRABS, RO > 0468 | 

52 0 ¢2 00062 SUBL2 RO, CONTROL ; | 
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; Routine Size: 109 bytes, Routine Base: RMSRMS3 + 0058 


15 | 
RMSMISC 1h-52 -1984 01:50:35 VAX-11 Bliss-32 V4.0-74 Page 12. 
yOe~000 RMSMOVE 13-88-18 93:39:38 DI EKSVMGHASTERSCHMS SRCSRMSMISC.B3251 . (4) | 
: 413 474 1 &XSBTTL 'RMSMOVE' 
: tie Bee? ! GLOBAL ROUTINE RMSMOVE (LENGTH, FROM_ADDR, TO_ADDR) : RLSPRESERVE1 = 
: 218 0477 1 !4+4 
3. 6ST 478 1! 
: 213 943 : FUNCTIONAL DESCRIPTION: 
; 420 0481 1! The purpose of this routine is to move a block of characters from a 
: 421 0482 1! source to a destination buffer, Its existance is do to the necessity 
; 422 0485 1! of save registers R1 through R5 before doing a CHSMOVE, which is 
; 7 bene : } basically what this routine does. 
: 425 0486 1 ! CALLING SEQUENCE: 
3 rk 0487 1! 
; 427 0488 1! RMSMOVE () 
> 428 0489 1! 
; $9? 0490 1 ! INPUT PARAMETERS: 
; 430 0491 1! 
; 431 0492 1! LENGTH - length of block to be moved 
: 432 04935 1! FROM_ADDR - address to move from 
; 433 0494 1! TO_ABDR - address to move to 
: 434 0495 1! 
: 435 0496 1 ! IMPLICIT INPUTS: 
>; 436 049 1! NONE 
s 457 0498 1! 
; 438 0499 1 ! OUTPUT PARAMETERS: 
; 439 0500 1! NONE 
; 440 0501 1! 
3: 441 0502 1 ! IMPLICIT OUTPUTS: 
> 442 0503 1! NONE 
> 443 0504 1! 
3 444 0505 1 ! ROUTINE VALUE: 
> 445 0506 1! ; 
; 446 0507 1! The address of the first byte in the destination buffer past the 
; 667 0508 1! block of characters moved. 
: 448 0509 1! 
3: 449 0510 1 ! SIDE EFFECTS: 
; 450 0511 1! NONE 
3; «451 Bag 1! 
; 452 05135 1 !-- 
3 453 0514 1 
3 454 0515 2 BEGIN 
: 455 0516 2 RETURN CHSMOVE(.LENGTH, .FROM_ADDR, .TO_ADDR); 
; 456 0517 1 END; 


3€ BB 00000 RMSMOVE: : | 


PUSHR #*M<R1,R2,R3,R4,R5> : 0475 
20 ‘BE 1¢ BE 18 AE 28 00002 MOVC3 LENGTH. @FROM_ADDR, @TO_ADDR : 0516 | 
50 3 D0 00009 MOVL = RS, 3 | 
E BA 0000C POPR = #*M<R1,R2,.R3.R4,R5> : 0517. 
05 0000E RSB ; | 


; Routine Size: 15 bytes, | Routine Base: RMSRMS3 + GOC8 


Bliss-32 V4.0-74 


VAX=11 BLi § 
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RMSMISC 16-Sep-1984 01:50:35 VAX=11 Bliss-32 V4.0-74 Page 1 
v0e-000 RMSRECORD_ID 12286871382 93:39: 8 DL SKSVMGMASTERSERMS. SRCSRMSMISC.B32:1 (5). 
: 458 8318 1 ZSBTTL ‘RMSRECORD_ID' 
; 459 519 1 GLOBAL ROUTINE RMSRECORD_ID : RLSRABREG_67 = 
; 460 82 0 1 
; 461 0521 1 {+4 
; 46 05 ¢ 1! 
; ta7 82 ? : FUNCTIONAL DESCRIPTION: 
g ret Be 5 } This routine extracts the ID from the primary data record's RRV field. 
: 467 05 ; 1 ! CALLING SEQUENCE: 
; 468 0528 1! BSBW RMSRECORD_I1D() 
: 469 82 > 8% 
; 470 550 1 ! INPUT PARAMETERS: 
; 471 0531 1! NONE 
3 $7 b2eg 1! 
; 47 B28 1 ! IMPLICIT INPUTS: 
> 474 0534 1! 
3; 475 B22 1! - address of the IFAB ; 
: 278 b239 } } IFBSB_PLG_VER - prologue version of the file 
: 478 0538 1! REC_ADDR - address of the record 
; 479 0539 1! 
; 480 0540 1 ! OUTPUT PARAMETERS: 
; 481 0541 1! NONE 
; 48 Beeg 1! 
; 48 0545 1 ! IMPLICIT OUTPUTS: 
> 484 0544 1! NONE 
; 485 0545 1! 
> 486 0546 1 ! ROUTINE VALUE: 
: 487 0547 1! 
; 488 0548 1! The ID of the given record 
; 489 0549 1! 
: 490 0550 1 ! SIDE EFFECTS: 
: 491 O55) 7! NONE 
; 49 0236 1! 
; 49 0553 1 !-- 
: 494 0554 1 
: 495 0555 2 BEGIN 
; 496 0556 2 
3; 497 0557 2 EXTERNAL REGISTER 
; 498 0558 2 _IFAB_STR, 
; 499 0559 R-REC_ADDR_STR; 
; 500 0560 
: 501 0561 BUILTIN 
; 502 3206 AP; 
; 503 0565 2 
3; 504 0564 § IF .IFABCIFBSB_PLG_VER] EQLU 3 
; 505 0565 H 
: 506 0566 2 RETURN .(.REC_ADDR + 3)<0,16> 
; 507 0567 2 ELSE 
; 508 0568 § RETURN .(.REC_ADDR + 2)<0,8>; 
; 509 0569 
; 510 0570 1 END; 


5 | 
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03 0087 CA 91 00000 RMSRECORD_ID:: 


CAPB =s«183( FAB), #3 5 0564 | 
05 12 0000 BNEQ 1$ : 
50 03 Ab 3¢ 9007 MOVZWL 3(REC_ADDR), RO ; 0568 | 
50 02 Ab rn 900¢ 1$: MOVZBL 2(REC_ADDR), RO : 
05 0001 RSB : 0570. 


; Routine Size: 17 bytes, Routine Base: RMS$RMS3 + 00D7 
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3 21g p27) 1 ZSBTTL 'RMSRECORD KEY' ; 
: giz 8 Le ! GLOBAL ROUTINE RMSRECORD_KEY (OUTBUF) : RLSPRESERVE1 = : 
3 19 bah 1 !44 ; 
: 318 087 1 | FUNCTIONAL DESCRIPTION 
; 518 $399 1! 3 
; 519 0578 1! This routine extracts a key from a record and places it the output ; 
; 520 0579 1! buffer, the address of which is passed to it as an arguement. The : 
3 Ser 0580 1! key that is extracted is an index key, if the record is an index record, : 
. > ¢ 0581 1! an alternate key, if the record is a SIDR, or either the primary key : 
Ss bene 1! or an alternate key, if the record is a primary data record. In the : 
> 524 5 7 ! latter case, which key is extracted depends upon the index descriptor $ 
3 See 0584 1! this routine recieves as implicit input. If the index descriptor is for $ 
3; 320 0585 1! the porary key of reference then it will be the aby? key that is : 
3 Ser 0586 1! extracted from the primary data record; otherwise, it will be an 3 
; 256 bene : alternate key. : 
3 28 0589 1! This routine maybe called indicating either that the record has overhead : 
s SS) 0590 1! data associated with it, or that REC_ADDR points directly to the record $ 
; 238 0591 1! itself. In the former case, RMS will always first position past the F 
s $3 R206 1! record overhead to the record itself, before jcining the common code to 3 
> 534 0595 1! extract the epprepriete key. This routine also maybe called indicating 3 
: oa 0594 1! either that the record is compressed format (prolgoue 3 only), or is | 3 
3 238 beae : not, and the routine takes the appropriate action in each case. : 
; 538 0597 1! This routine makes one very important assumption. If the record is a ; 
; 539 0598 1! primary data record and the index descriptor is for a secondary key, F 
; 540 0599 1! inotherwards RMS is to extract a secondary 4: from a primary data 3 
> 541 0600 1! record, then the primary data record can not be in compressed format ; 
; 542 0601 1! because it would then be impossible to find let alone extract out the 3 
: 543 0602 1! alternate key. 3 
> 544 0603 1! : 
3; 545 0604 1 ! CALLING SEQUENCE: 3 
; 546 0605 1! : 
3; 547 0606 1! RMSRECORD_KEY() | 3 
: 548 0607 1! : 
3 549 0608 1 ! INPUT PARAMETERS: é 
; 550 0609 1! ; : 
; 23! mere : : OUTBUF - address of the buffer to contain extracted key : 
3 328 0612 1 ! IMPLICIT INPUTS: 3 
; 554 0615 1! d : 4 : 
3 222 0614 1! AP - used to control information to the’ routine : 
: 556 0615 1! bit 0 - if 0, record overhead : 
s Sor 0616 1! - if 1, no record overhead 3 
; 558 0617 1! bit 1 - if 0, compressed form (prologue 3 only) : 
; 559 0618 1! - if 1, expanded form : 
; 560 0619 1! 3 
; 561 0620 1! BKT_ADDR - address of bucket ; 
: 266 0621 1! BKT$B_INDEXNO = index bucket is in 3 
3; 2 06 § 1! BKTSB_LEVEL - level of bucket ‘ 
: 564 06 ': : ’ : 
; 565 0624 1! IDX_DFN - address of index descriptor : 
: 566 0625 1! IDX$V_IDX_COMPR - if set, index key compression is enabled : 
3; 567 06 § 1! IDX$V_KEY_COMPR - if set, key compression is enabled : 
: 568 0627 1! DX$B-KEYSZ - size of key ; 
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RM3MISC 16-Sep-1984 01:50:35 VAX-11 Bliss-32 V4.0-74 Page 1 
v04- RMSRECORD_KEY 12-8 08-13be 93:89:38 DL SKSVMEMASTER SCAMS. SRC IRMSMISC 83221 . (6) | 
H 298 6 3 1} IDX$W_POSITION - table of segment positions 
; 0 6 ' i IDX$B_SEGMENTS = number of segement 
: of 650 1! IDX$B_SIZE = table of segment sizes 
3 2f¢ ge 1 : } IDXSB_TYPE = table of segment types 
5 37 06 j 1! AB - address of IFAB 
: oe 0634 1! IFBSB_PLG_VER = prologue version of file 
; 576 0635 1! 
s Ser 0636 1! AB - address of IRAB 
; 578 82 . 3% IRB$L_CURBDB - address of BDB for current record's buffer 
; 44 O38 : IRBSL_LST_NCMP - address of Last noncompressed key in bucket 
>; 581 064g Zz REC_ADDR - address of current record 
3 ra} 641 1! 
: 58 Berg 1 ! OUTPUT PARAMETERS: 
; 584 06435 1! NONE 
s 385 0644 1! 
; 586 0645 1 ! IMPLICIT OUTPUTS: 
3; 587 0646 1! NONE 
; 588 0647 1! 
» 589 0648 1 ! ROUTINE VALUE: 
; 590 0649 1! 
; 591 0650 1! Address of first byte in output buffer past extracted key. 
3 23% 0651 1! 
; 59 pees 1 ! SIDE EFFECTS: 
3; 594 0653 1! . 
; 595 0654 1! AP is trashed. 
; 596 0655 1! 
3; 597 0656 1 !-- 
: 598 0657 1 
; 599 0658 2 BEGIN 
: 600 0659 2 
: 601 0660 2 BUILTIN 
; 602 0661 2 AP; 
; 603 0662 2 
; ¢ 0663 2 EXTERNAL REGISTER 
3; 605 0664 2 R_IDX_DFN_STR, 
3 0665 é R-IFAB_STR, 
; 607 0666 R-IRAB-STR, 
; 608 0667 2 R-REC_ADDR_STR; 
3; 609 0668 § 
: 610 0669 OCAL 
: eV ght 2 START_ADDR : REF BBLOCK; 
; gi 067 ! Define macros to identify compressed key overhead. 
; 614 067 ' 
3 «6618 0674 CRO 
; 616 8673 KEY_LEN = 9.0.8.0 %, 
3 617 676 CMP~CNT = 1,0,8,0 2; 
3; 618 0677 
3; 619 0678 START_ADDR = .REC_ADDR; 
: 620 0679 sale eee Ss : 
3 6s) eet} If record overhead is indicated, position past it to the record proper. 
: $56 bok If NOT .AP<0,1> 
3; 624 068 THEN 
; 625 0684 BEGIN 
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Liss- 
MASTE 
LOCAL 

REC_SIZE; 


REC_SIZE = .BBLOCK C.BBLOCK C.IRABCIRBS$L_CURBDB), BDBSL_ADDRI, 
BKT$B_LEVELJ; 
IF aan EQLU 0 
- IDX_DFNCIDX$SB_KEYREF] NEQU 0 
REC_SIZE = =-1; 
Esp at = .START_ADDR + RMSREC_OVHD(.REC_SIZE; REC_SIZE); 
! The file is a prologue 1 or 2 file; or, the file is a prologue 3 file, 
: but the record is not in compressed form. RMS only has to simple extract 
' each segment from the appropriate position in the record, and move it 
into the keybuffer. 
if - TFABLIFBSB_PLG_VER LSSU PLGSC_VER_3 
en 
INCR SEG_DATA_ADDR 
FROM IDX_DFNCIDX$W_P 
TO (CIDR_DFNCIDOXS 
+ (4 ® .IDK_ 
- 4) 
BY 4 
BEGIN 
GLOBAL REGISTER 
R_RAB 


R~ IMPURE, 
R_BDB; 


EGMENTS)) 


OUTBUF = RMSMOVE (.(.SEG_DATA_ADDR)<16,8> 
~START-ADDR™+ .(.SEG_DATA_ADDR)<0,16>, 
ae > OUTBUF ) 


: The record is in compressed format. It can either be a primary data 
: record, an index record or a SIDR. The desired key is extracted as a 
whole with expansion of the key being done, if the key is compressed. 


ELSE 
BEGIN 


LOCAL 
BUCKET : REF BBLOCK; 


BUCKET = .BBLOCKC.IJRABCIRBSL_CURBDB), BDOBSL_ADDR); 
! If the key has been compressed, then extraction of the key must be 
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0° 138% 01:50:35 VAX-11 Bliss-32 V4.0-74 Page 19 
RMSRECORD_KEY 14-Sep-1984 13:01:28 DISKSVMSMASTER:CRMS.SRCIJRM3MISC.832;1 (6) 
; 683 074 ! accompanied by the addition of the front compressed and rear-end 
>; 684 074 ' truncated characters. 

; 685 0744 : 

; 686 0745 4 IF (.BUCKETCBKT$B_LEVEL] EQLU 0 

; 687 0746 4 

; 688 0747 4 . IDX_DFNCIDX$V_KEY_COMPR]) 

; 689 0748 3 

; 690 0749 4 (.BUCKETCBKTSB_LEVEL] NEQU 0 

: 691 0750 4 

; 69 0751 4 - IDX_DFNCIDX$V_IDX_COMPR]) 

; 69 o7 26 3 THEN 

> 694 07535 4 BEGIN 

> 695 0754 4 

; 696 0755 4 

; 697 0756 4 LENGTH 

; 698 0757 4 SAVE_REC_ADDR; 

; 699 0758 4 

; 700 0759 4 SAVE_REC_ADDR = .REC_ADDR; 

; 701 0760 4 

; 702 0761 4 ! Position to the first byte in the ey buffer past the 

: 703 0762 4 ! number of bytes front compressed in the key that is to be 

: 704 07635 4 ' returned. 

; 705 0764 4 : 

3 Ms 1553 : OUTBUF = .OUTBUF + .START_ADDRCCMP_CNTJ; 

; 708 0767 4 : Scan the bucket until the desired record is reached, moving the 
; 709 0768 4 ! the characters front compressed off the key of the desired 

s 710 0769 4 ! record into the output buffer as they are encountered. The bucket 
3 3 Broo ? scan starts with the first record in the bucket 

3s 715 0772 4 REC_ADDR = .BUCKET + BKT$C_OVERHDSZ; 

s 0773 4 

3s 715 0774 4 WHILE 1 DO 

3; 716 0775 5 BEGIN 

. re 0776 5 

: 718 0777 5 OCAL 

3; 719 0778 5 RECORD_OVHD, 

: 720 0779 5 RECORD_SIZE; 

3; 6fel 0780 5 ; f : 

s té2 0781 5 ! Position to the key of the currence record. This will involve 
s 23 0782 5 ! determining the number of bytes of record overhead. 

: 724 0783 5 ! 

3; 2 0784 6 BEGIN 

3; 726 14 6 

: 727 786 6 LOCAL 

: 728 0787 6 REC_SIZE; 

: 729 0788 6 > 

: oe 1434 ? } Set REC_SIZE according to the bucket type. 

: rag O78) ° IF (REC_SIZE = .BUCKETCBKT$B_LEVEL]) EQLU 0 

3; «(734 6798 6 IF .BUCKETCBKT$B_INDEXNO] NEQU 0 

3 735 0794 & 

3; 736 0795 6 REC_SIZE = -1; 

3 fav 0796 6 

; 738 0797 6 RECORD_OVHD = RMSREC_OVHD(.REC_SIZE; REC_SIZE); 

; 739 0798 6 RECORD-SIZE = .REC_STZE; 


a 


BEGIN 
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ated 17-2007 128% 01:50:35 VAX-11 Bliss-32 los Page 20 
v04-000 RMSRECORD_KEY 14-Sep-1984 13:01:28 DISKSVMSMASTER: CRMS.SRC JRM3MISC.B32; 1 (6) 

ry 079 END; 

? ! If the desired record has been reached in the bucket scan, 

ie ; then terminate the scan. 

745 iF (REC_ADDR = .REC_ADDR + .RECORD_OVHD) GEQU .START_ADDR 

746 THEN 

ee EXITLOOP; 

749 ! If the front eapress sen count of the key of the current 

750 ' record is Less than the compression count of the key of 

751 ' the desired record, then the former has characters that 

Pee the latter requires in its expansion. 

754 iF .REC_ADDRECMP_CNT] LSSU .START_ADDRECMP_CNT] 

755 THEN 

756 

757 

758 

759 


! If the compression count is squet to zero, move all 

' the characters. Otherwise, RMS had previously moved 

! characters that now appear to be incorrect, so 
overlay them with what RMS hopes are the correct ones. 


LENGTH = .START_ADDRCCMP_CNT] = .REC_ADDRCCMP_CNTJ; 


0.090 Od 09 Cd 09 Od Go O° GD CD Od 09 Cd OD CD CD OD Cd CD OD C0 C0 OD CO C9 CO C9 CD C9 CO C9 CO. 09 CD 09 CO C9. CD00 


DAI BB BBB EEE EAA NNINNIWIP REI NINININININID 2 2 OO OO OM MH OOO OOOCOCOCOCO 
OON AWE WN $ O OONAUNE WE) S$ OW ONOULE WN OODONOUS WN OW” 


Be Be Be Be Be Be Oe Be Oe Be Se BH Se Be Se Se Be Be Se Se Se Se Be SH Se Oe Se Ge Ge Be FH Se Ge FF Se Se Se Se BESET Se SH Se Se Se Se FH Se Se ee Se Geese Se teg 

~ 

oa 

o 
CDODOOSOOOOOCOOCCSCOCOCOCOOSO OS OCOSOOCSSOOOSOSCOOOOOCOOCOOOOOOOOOOOCOOOOOoO 
BEEBE BEEBE EB NIAAA AA AAA A AAA PA AAA DAA AAD MSA TIIS 


ree OUTBUF -OUTBUF = .LENGTH; 

766 ! Move all of the front compressed characters needed by 

767 ! the key of the desired record that can be supplied by 

768 ! the key of the current record into the outbuf buffer, 
! utilizing the truncated character of the key of the 

770 ' current record to supply any of these characters as 

4a needed. 

773 OUTBUF = CHSCOPY (.REC_ADDRCKEY_LEN), 

774 -REC_ADDR + 2, 

775 .(.REC_ADDR + .REC_ADDRCKEY_LEN]) + 1), 

776 -LENGTA 

777 -OUTBUF 5; 

778 END; 

779 : J s 

reo S25 Position to the next record in the bucket; 

782 841 REC_ADDR = .REC_ADDR + .RECORD_SIZE; 

Ay § END; ! end of WHILE loop 

785 844 ' Complete the key of the desired record with those characters 

786 845 ! not front compressed - extending the key out to its full size 

At ; $ using its rear-end truncated character, if it is required. 

OB) : 8 LENGTH = .IDX_DFNCIDX$B_KEYSZ] - .START_ADDRECMP_CNTJ; 

791 850 IF .LENGTH GTR 0 

79 851 THEN 

79 8 § OUTBUF = CHSCOPY (.START_ADORCKEY_LEN), 

794 8 «START_ADDR + 2, 

795 854 .(.START_ADDR + .START_ADDRCIKEY_LEN] + 1), 

796 855 «LENGTH, 
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16-Sep-1984 94:30:33 VAX-11 Bliss-32 Ve sO ecae Page 21 
RMSRECORD_KEY 14-Sep-1984 01:28 DISKSVMSMASTER: CRMS.SRCIJRM3MISC.B32;1 (6) 
; 797 0856 4 ~OUTBUF); 
; 798 0857 4 
; 799 0858 4 REC_ADDR = .SAVE_REC_ADDR; 
; 800 0859 4 END 
rao myo s 
; 80 pees ! The record is in compressed form, but the key which is to be 
3; 804 086 ; ! extracted is not itself compressed. Therefore, it maybe moved 
3 it baee ; as a single entity into the output buffer. 
; 807 0866 3 CUTBUF = CHSMOVE( .IDX_DFNCIDX$B_KEYSZ], .START_ADDR, .OUTBUF); 
; 808 0867 3 
; 809 0868 2 END; 
; 810 0869 2 
; 811 0870 2 ! Return the address of the first byte in the output buffer, past the 
3 Bi¢ 0871 2 ' the key which has been extracted from the current record, and placed 
3 #81 th 2 ' there. 
3 «B14 0873 2 ' 
: 6815 0874 2 RETURN .OUTBUF; 
; 816 0875 1 END; 
O93E 8F BB GO000 RMSRECORD_KEY:: 
POSHR #*M<R1,R2,R3,R4,R5,R8,R11> 3 0572 
5E OC C2 00004 SUBL2 #12, SP : 
56 DD 00007 PUSHL REC_ADDR : 0678 
1C 5C £8 00009 BLBS AP, 2$ : 0682 
50 20 AY dO 0000C MOVL 32(IRAB), RO ; 0689 
50 18 AQ 00 00010 MOVL 24(RO), ; 0690 
51 0c AO 9A 00014 MOVZBL 12(RO), REC_SIZE ; 0689 
08 12 00018 BNEQ 1$ 3; 0692 
21 A? 95 OOOTA TSTB 33(IDX_DFN) 3 0694 
03 13 00010 BEQL 1$ 5 
51 01 CE OOOTF MNEGL #1, REC_SIZE 3; 0696 
00006 30 0002 1$: BSBW = RMSREC_OVHD > 0698 
6E 50 CO 0002 ADDL2 RO START_ADDR : 
03 00B7 CA 91 00028 2$: CMPB =«-«183(IFAB)> # : 0706 
04 1F 0002D BLSSU 3$ 5 
2F 5¢ 01 €1 He BBC #1, AP, 6% ; 0708 
50 1€ A7 9A 00033 38: MOVZBL 30(IDX_DFN), RO : 0713 
52 28 A740 DE 0037 MOVAL 4OCIDX~DFN)EROJ, R2 : O712 
51 28 A? 9E 0003C MOVAB 40(R7), SEG_DATA_ADDR : 0711 
17 11 00040 BRB 5$ ; 
30 =6AE Bo Bones 4$: PUSHL OUTBUF 3 0726 
50 61 C 0004 MOVZWL (SEG_DATA_ADDR), RO ; 0725 
04 BESO 9F 00048 PUSHAB a@START_ADBR(RO] : 
7E 02 Al 9A tied MOVZBL 2(SEG BATA_ADDR), -(SP) ; 0724 
8E 10 00050 SBB RMSMOVE 3 
5E 0c co Oo2e ADDL2 #12, SP ; 
30 AE 50 00 0005 MOVL RO. OUTBUF 3 
FFES 51 04 52 F1 00059 5$: ACBL R #4, SEG_DATA_ADDR, 4$ 7 
OOBE 31 0005F BRW 16$ : 0711 
5 20 AY DO 00062 6$: MOVL 32(IRAB), RO ; 0739 
5 18 AO DO 00066 MOVL § 24(RO), BUCKET 


F 
RMSM 16-Sep-1984 01:50:35  VAX=11 Bliss-32 V4.0-7 Page 22 
yaa it RMSRECORD_KEY 14- 71884 93:39:33 DISKSVMSMASTER: CRMs. Ske RM3MISC.B32;1 9° 8) 
04 AE OC AB 9A OO06A MOVZBL 12(BUCKET), 4(SP) 1 0745 
A 1 O06F BNEQ  8$ : 
OA 1c «AT ‘ E 09 1 BBS #6, 28(IDX_DFN), 9$ + 0747 
1 076 BNEQ 8$ + 0749 
0097 31 007 7$: BRW 138 : 
FB 1c «A? 03 €E1 00078 gs: BBC #3, 28(1DXx + 0751 
OC AE 56 DO 00080 9$: MOVL REC. ADDR SAVE “fet _ADDR : 0759 
51 E 01 (1 0084 ADDL3 #1, START_A : 0765 
0 61 A 00088 MOVZBL (R1), RO : 
30 AE 0 CO 00088 ADDL2 RO, GuTBuE ; 
56 OE A8 SE O008F MOVAB 14(R8), REC_ADDR + 0772 
51 04 AE D 90093 10$ MOVL 4(SP), REC_SIZE + 0791 
08 1 9 BNEQ 11$ : 
01 a8 95 00099 TSTB  —«- 1 (BUCKET) + 0793 
03 13 0009C¢ BEQL 11$ ; 
51 01 ce 0009E MNEGL #1, REC Size + 0795 
00006 30 OO0A1 11$ BSBW RMSREC : 0797 
08 AE 51 DO O00A4 MOVL. REC SIZE. "RECORD. SIZE : 0798 
56 50 CO O00A8 ADDL2 RECORD REC" ADDR + 0804 
6E 56 D1 O00AB CMPL REC ADDR MO EART _KppR : 
33 1E OOOAE BGEQU 13$7 ; 
50 6E 07 ¢1 00080 ADDL3 #1, START_ADDR, RO + 0813 
60 01 A6 91 000B4 CMP 1(REC_ADDR), (RO) : 
23 1€ 00088 BGEQU 12$ : 
50 6E 01 C1 OOOBA ADDL3 #1, START_ADDR, RO > 0822 
58 60 9A OOOBE MOVZBL (RO), LENGTH : 
51 01 Ad 9A 000C1 MOVZBL 1(REC_ADDR), R1 ; 
58 51 cs 000C5 SUBL2 R1, LENGTH 3 
30 AE 5B C2 000C8 SUBL2 LENGTH, OUTBUF : 0823 
50 66 9A 090CC MOVZBL (REC_ADDR), RO > 0832 
58 01 A046 02 Aé 50 2C OOOCF MOVCS RO, 2(REC_ADDR), 1(RO)CREC_ADDR], LENGTH, - : 0836 
30 BE 00007 @OUTBUF : 
30 AE 53 DO 00009 MOVL R3, OUTBU F 
56 08 AE CO 000DD 12$:  ADDL2 RECORD. SITE. REC_ADDR + 0841 
BO 11 000E1 BRB 10$ : 0774 
50 20 A? 9A OO0E3 13$:  MOVZBL 32(1DX RO > 0848 
51 6E 01 C1 000E7 ADDL3 START AsoR, R1 ; 
5B 61 9A OO0EB MOVZBL trl) TH : 
5B 50 5B C3 OOOEE SUBL (ENS tHe eno. LENGTH ; 
18 15 000F2 BLEQ 14$ + 0850 
50 00 BE 9A O00F4 MOVZBL a@START xAdor. ak > 0852 
58 6E DO 000F8 MOVL.  START_A > 0856 
7E 6E 02 C1 000FB ADDL3 a, START  kOER ; 
5B 01 A048 9E “ 30 2c O00rF MOVC5 a(sP)?, TROD ERED. LENGTH, @OUTBUF F 
30 AE 5 D0 00108 MOVL 3, OUT ; 
56 OC AE DO 0010C 148:  MOVL SAVE OREC UADDR, REC_ADDR > 0858 
OE 11 00110 BRB : 0745 
50 20 A? OA Oi12 15$: MOV ZBL 32(1DX_DFN), RO > 0866 
30 BE 00 BE 29 28 00116 MOVC RO, aSTART. _ADDR, @OUTBUF ; 
30 AE 53 D0 O1i¢ MOVL 3, OU TBUF” F 
50 30 AE DO 00120 16$:  MOVL oufBUF > 0874 
5€ 10 CO 00124 ADDL2 #16, § : 0875 
093E 8F BA 91 7 POPR #*M<R1,R2,R3,R4,R5,R8,R11> : 
5 00128 RSB : 


; Routine Size: 300 bytes, Routine Base: RMS$RMS3 + OOE8 
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RMSMISC 16-Sep-1 og Oh: :50:35 VAX-11 Bliss-32 V4 reg Page & 
v04-000 RMSRECORD_VBN 14-Sep-1984 13:01:28 DISKSVMSMASTER: cheng” SRC RM3MISC.B32;1 ) 
; 818 0876 1 XSBTTL ‘RMSRECORD_VBN’' 
; 819 0877 1 GLOBAL ROUTINE RMSRECORD. VBN : RLSPRESERVE! = 
; g¢0 0 i 1 
; 821 0879 1 !++ 
3 B56 0880 1! 
3 Bes tt } FUNCTIONAL DESCRIPTION: 
3 BS? Oss 1 This routine extracts the variable Length VBN from the given record. 
; 827 0885 1 ! CALLING SEQUENCE: 
; 828 0886 1! BSBW RMSRECORD_VBN() 
5 B68 0887 1! 
; 850 0886 1 ! INPUT PARAMETERS: 
3 $85) 0889 1! NONE 
; 832 0890 1! 
; 833 0891 1 ! IMPLICIT INPUTS: 
> 834 4 1! 
; 835 0895 1! 1FAB - address of the IFAB 
; 836 0894 1! IFB$B_PLG_VER - prologue version of the file 
; 837 0895 1! 
; 838 0896 1! REC_ADDR - address of the record 
> 839 0897 1! 
; 840 0898 1! AP == code indicating type of bucke 
; 841 0899 1! (also Bagi: from the hogtantne of the record to the VBN) 
; «84 0906 1! r DATA records 
: 84 0901 1! 2 ter SIDR records 
3 ace 84 : 1 for INDEX records (Prologue 1 and 3 only) 
; 846 0904 1 ! OUTPUT PARAMETERS: 
: 847 0905 1! NONE 
; 848 0906 1! 
: 849 0907 1 ! IMPLICIT OUTPUTS: 
; 850 0908 1! NONE 
; 851 0909 1! 
; 852 0910 1 ! ROUTINE VALUE: 
3 8353 0911 +1! : 
; 854 44 1! The VBN of the given record. 
3 855 0913 1! 
3; 856 0914 1 ! SIDE EFFECTS: 
; 857 0915 1! NONE 
; 858 0916 1! 
; 859 0917 1 !-- 
; 860 0918 1 
; 861 0919 § BEGIN 
3; 862 0920 
3; 8635 0921 EXTERNAL REGISTER 
; 864 33 ; _IF e 
; 865 9 R-REC_ADDR_STR; 
; 866 base 
; 867 0925 BUILTIN 
; 868 0966 AP; 
; 869 092 
; 870 0928 if .]FABCIFB$B_PLG_VER) EQLU 3 
s 871 o362 THEN 
5 £78 83 0 IF .AP EQLU 3 
s 6ST 931 THEN 
3 «874 0932 RETURN .(.REC_ADDR + 5)<0,8*(2 + .9FC_ADDRCIRCS$V_PTRSZ])> 


16 
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RMSRECORD_VBN 


: 875 933 ELSE 

s 8 i ¢ ELSE RETURN .(.REC_ADDR + 3)<0,8%(2 + -REC_ADDRCIRC$V_PTRSZ])> 
; 378 0936 RETURN .(.REC_ADDR + .AP)<0,8*(2 + .REC_ADDRCIRCS$V_PTRSZJ)>; 
: 880 0938 7 END; 


“ 
— 
i=] 
J 


00000 RM$RECORD Fane wf 

B00 CMPB 183(1FAB), #3 

0009 CMPL AP, #3 

EXTZV bo. #2, (REC_ADDR), RO 
#8, RO 


; 0877 
; 0928 


: 0930 


50 66 : 0932 


#16, RO 
EXTZV #0, RO, S(REC_ADDR), R1 
#0, #2, (REC_ADDR), RO 
#8, RO 


51 05 A6 
50 66 


a" 
wn 
mm 
=< 
—_ 
~ 
< 


: 0934 


#16, RO 
51 03 A6 EXTZV ay Re. 3(REC_ADDR), R1 


~m 
wn 
oz 
o 
< 
= 


; 0936 


ive) 
wn 
m 
=<D 
ar 
~ 
<= 


50 66 #0, #2, (REC_ADDR), RO 
#8, RO 


#16, RO 
EXTZV #0, RO, (AP)CREC_ADDRJ, R1 
POPR #*M<R1> 


51 6(46 
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: 0938 
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; Routine Size: 78 bytes, Routine Base: RM$RMS3 + 0214 


; «881 0939 1 

; 882 0940 1 

; 883 0941 1 END 

; 884 0942 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
RMSRMS3 610 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
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Library Statistics 


; soussses JYGUGL§ cooceses Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 44 1 154 00:00.4 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RM3MISC/OBJ=OBJ$:RM3MISC MSRC$:RM3MISC/UPDATE=(ENH$:RM3MISC) 
; Size: 610 code + 0 data bytes 

; Run Time: 00:15.0 


3; Elapsed aes 00: $¢- 0 
3; Lines/CPU M gree 

; enenon/tre-iies 13478 

3 memory Used: 128 pages 
$ 3 


; Compilation Complete 
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